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SBEGIN RMSOSDFP,000,RMSRMS,<SET DEFAULT FILE PROTECTION> 


RRA eeeeeeeeeeeeeeeneeteeereneneteteteteneteeeeseneeeee 


COPYPIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


OFTWARE IS FUR 
N ACCORDANCE 
ION OF THE ABO 


NISHED UNDER A LICENSE AND MAY BE USED AND cor ace 
WITH THE TERMS OF SUCH LICENSE AND WITH THE 
VE gully NOTICE. THIS SOFTWARE OR ANY OTHER 
OT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
TLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
a eRPORAT ION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Bae 
0900 73 
0 6 : 
8 0 7 ; 
0 8 ; 
0000 3 : 
0000 10 ; 
0000 11 : 
8 0 1¢ 3 : 
0 1 : 
0000 14 : 
0000 15 : 
0000 16 ; 
0000 7: 
0000 18 ; 
0000 19 ; 
0000 20 ; 
0000 21; 
0000 ee 3 
0000 23 ; 
0000 24 ; 
000 25 PRRAAAAAT RATATAT ATTA ATT TAA TAKA ATA AKER ATA Hee eee ATA H eK AeA eee ee eeTT ere TTS 
0000 26 ; 
0000 te eee 
0000 28 ; Facility: rms32 
0000 29 : 
0000 30 ; Abstract: 
0000 313 this routine sets the default file protection in 
0000 3 : the process i/o control page. 
0000 SS 3 
0000 34 ; Environment: 
$444 32 ; star processor running starlet exec. 
0000 37 ; Author: | f lLaverdure, creation date: 22-APR-1977 
0000 38 ; ean 
0000 39 ; Modified By: 
0000 40 ; 
0000 41 ; v03-003 RASO237 Ron Schaefer 16-Jan-1984 
0000 *g : Change LMP0153 to use CTL$GL_PCB, instead of SCHS$GL_CURPCB 
it ti ; so this code works on the secondary of a dual processor. 
itd 45 ; v03-002 LMP0135 L. Mark Pilant, 5<hug~1983 15:05 
44 rt 5 Get default protection from PCB instead of P space. 
0000 48 ; v93-001 KBT0192 Keith B. Thompson of ig -1982 
4 2p : Reorganize »psects and rename entry point to single ‘$’ 
4 2) : V02-006 REFORMAT P S Knibbe 25-Jul-1980 
0000 2§ : vo05 RANOOO2 R A Newell 18-SEP-1978 09:19 
0000 ee : rms32 isam modification. redefinition of entry point to 
0000 3 resolve out of range branches. 
0000 2$ 3 
0000 57 ; 01 - 
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DEFAULT FILE PROTECTION 16-SEP-1984 01:30:5 AX/VMS Macro V04-00 Pa 
LARATIONS g- FE =19 4 93:39:38 YRMS SRCIRMS SDFP.MAR; 1 ” 3) 
ee ~SBTTL DECLARATIONS 
4 ; Include Files: 
65 ; 
8 $$ ; 
00 o8 3; Macros: 
00 8 3 
00 0 
00 71 SPSLDEF 
44 ie SRMSDEF 
900 7 $PCBDEF 
0000 74 
00 75 ; 
000 16 ; Equated Symbols: 
444 U7? 3 
0 78 
4 79 ; 
0 80 ; Own Storage: 
0000 4 pr 
0600 2 
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 RMSOSDFP SET D LT FILE PROTECTION 16-SEP-1984 01:30: AX/VMS Macro V04-00 Pa 
vou-009 RMS$S PROT = SET DEFAULT FILE PROTECT Bee p=19 4 94:29:35 RMS .SRCIRMSOSDFP.MAR; 1 ” 


~SBTTL RMSSSETDFPROT = SET DEFAULT FILE PROTECTION ROUTINE 


++ 
RMSSSETDFPROT = Set default file protection 


this routine optionally returns and/or sets the value of the 
default file protection word in the process i/o control page. 


Calling sequence: 

entered from exec as a result of user's calling sys$setdfprot 
Input Parameters: 

ap user's argument List addr 


first argument gives the address of the new default file 
protection word if any, else 


contains a second argument optionally 4 the address of 
a word in which the current default protection may be returned. 


Implicit Inputs: 


Output Parameters: 


ri destroyed 
0000 r status code 
0000 (note: this routine uses r0-r3 as saved in the system vector entry mask) 


Implicit Outputs: 


optionally, pio$gw_dfprot set to the value of the input word 
and/or the current default protection is returned to the caller 


Completion Codes: 
standard rms, in particular, suc and ial. 
Side Effects: 


none 


PIPIPOPIPINIINIDD 4 2 2 OOP PM PMPOOOCOCOOCOOCOCO OO OCOOOO0 OO OMMOMOdmcad 
NOU EWN 0 OD NOUS WN 0 ODNO UENO OD NOU EWN OC OONOUNE 
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RMSOSDFP SET DEFAULT FILE PROTECTION 16-SEP-1984 01:30: 36 AX/YMS Macro Vv04-00 Page 5 
v04-000 RMSSSETDFPROT = SET DEFAULT FILE PROTECT -SEP-1984 16:25:2 RMS.SRCIRMSOSDFP.MAR; 1 (4) 
08 129 SENTRY RMSSSETDFPROT 
000 130 STSTPT SETDFPROT 
0006 131 
0006 =«+1 ¢ H ‘ 
Babe : ? : see if the caller wants the protection returned 
$b08 135 
0006 136 RMSERR IAL 3; anticipate error 
52. 04 AC 0 000B 137 MOVL 4(AP) ,R2 s get 1st argument 
09 13 QOOF 138 BEQ ; branch if no value to set 
0011 139 IFNORD #2,(R2),EXIT ; is the word readable? 
53 62 B60 Bet? 140 MOVW (RO) ,R3 3 save new value 
51 08 AC b9 O1A 141 3S: MOVL taps. R1 ; possible address of return Length 
12 13 OO1E 136 BEQL ; if caller doesn’t want it, o.k. 
0020 14 i We (R1) EXIT : writeable? 
50 Q0000000'°GF DO 0026 144 OVL G*CTLSGL_PCB,RO ; get currect process PCB address 
0114 CO BO Q02D 145 nowy PCBSL *DEFPROT (RO) , (R1) ; yes, so return it to the caller 
52 D5 0032 146 S$: TSTL R2 3; was there a new value? 
OF 13 0034 147 QL 7$ : branch if not 
0036 148 SCMKRNL_S SETPROT ; else copy it over 
0045 149 7$: RMSSUC 
0048 150 EXIT: 
0048 151 SSB #16,R0 
04 004C 136 
0040 = 15 
004D 154 SETPROT: 
0000 004D £155 «WORD 0O 
50 Q0000000'GF DO OO4F 156 MOVL G“CTL$GL_PCB,RO 3; get currect process PCB address 
0114 CO «653)06=— BO «C(0056~—s«i157 MOVW R3,PCB$L_DEFPROT(RO) 3 else copy it over 
04 0058 158 RET 
005C 159 
005C 160 .END 
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Symbol table 


$$. 459 EP 
SSRMSTEST 


$ E 
CTL SGC Ta -] 
EXIT 

PCBSL -DEF PROT 


PIOSA~ TRACE 
RASSSETDE PROT 


SETPROT 
SYSSCMK 
TPTSL SE TDFPROT 


PSECT name 


Initialization 
anaes processing 


s 1 
aE table sort 
Pass 2 

Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


The working set Limit was 1350 p 


Page faults 
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oe 


eeeeereer 


0000048 R 
= 00000114 
teerener x 
= FFFFFFFE RG 
= 0001854C 


wekeneee GX 
rereeene x 


00000000 < 
Q000005C 
00000000 


36 00:0 
142 00:0 
204 00:0 

0 00:0 
44 00:0 
3 00:0 
1 00:0 
0 00:0 
432 00:0 
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0 NOPIC US 
92.) 01 ¢ PIC US 
0.) 2: NOPIC US 
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1 =35e-} 3 1:38! 36 Ade Macro 


R CON ABS LCL 
R CON REL GBL NOSHR 
R CON ABS LCL NOSHR- EXE 


21484 bytes (42 pages) of virtual memory were used to buffer the intermediate ‘er 
There were 20 pages of symbol table space ah yecated to hold 403 non-local 


160 source Lines were read in Pass 1, 


producing 1 


object records in Pass 


22 pages of virtual memory were used to define 21 macros. 


and 4 local symbols. 


v04-00 
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NOWRT 


Page 


ooo NOEXE NORD seed NOVEC BYTE 
EXE RD NOVEC BYTE 


WRT NOVEC BYTE 


6 
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ae v feces Run Statistics 


Macro Library name 
$255S$DUA28: RMS. OBJJRMS.MLB;1 
$255$0UA28:(SYS.OBJJLIB.MLB; 1 
5SSDUA2B: SYS IBISTARLET. MLB; 2 
TefAcs (all Libraries) 


539 GETS were required to define 17 macrcs. 


SET DEFAULT FILE PROTECTION 


ween een ene sce see oe ese monroe} 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RMSOSDFP/OBJ=OBJ$:RMSOSDFP MSRC$:RMSOSDFP/UPDATE=(ENHS:RMSOSDFP) +EXECML$/LIB+LIB$:RMS/LIB 
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